home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / libs / DigNet.lha / dignet / developer / includes / modula / dignetL.def < prev    next >
Encoding:
Modula Definition  |  1997-07-15  |  4.2 KB  |  133 lines
  1. DEFINITION MODULE dignetL {"dignet.library",4};
  2.  
  3. (*$ Implementation- *)
  4.  
  5. (* Generated with FDToM2 by M. Timmermans *)
  6.  
  7. (*
  8.  * Cyclone Modula-2 include by Ernest J Gainey III (wavy@cyberservices.com)
  9.  *)
  10.  
  11. FROM SYSTEM IMPORT ADDRESS;
  12. IMPORT ed:ExecD,Reg;
  13.  
  14.  
  15. VAR
  16.  DignetBase : ed.LibraryPtr;
  17.  
  18.  
  19. CONST
  20.  
  21.  dignetMinVersion=4;
  22.  dignetName="dignet.library";
  23.  
  24.  
  25. PROCEDURE AllocNet(device{Reg.A0}:ADDRESS;unit{Reg.D0}:LONGINT):LONGINT; CODE -30;
  26.  
  27. PROCEDURE FreeNet(net{Reg.A0}:ADDRESS):LONGINT; CODE -36;
  28.  
  29. PROCEDURE ReadNet(net{Reg.A0},buffer{Reg.A1}:ADDRESS;size{Reg.D0}:LONGINT):LONGINT; CODE -42;
  30.  
  31. PROCEDURE WriteNet(net{Reg.A0},buffer{Reg.A1}:ADDRESS;size{Reg.D0}:LONGINT):LONGINT; CODE -48;
  32.  
  33. PROCEDURE QueryNet(net{Reg.A0}:ADDRESS):LONGINT; CODE -54;
  34.  
  35. PROCEDURE AbortNet(net{Reg.A0}:ADDRESS):LONGINT; CODE -60;
  36.  
  37. PROCEDURE InitIOEXT(net{Reg.A0},newioext{Reg.A1}:ADDRESS;length{Reg.D0}:LONGINT):LONGINT; CODE -66;
  38.  
  39. PROCEDURE ReadIOEXT(net{Reg.A0},buffer{Reg.A1}:ADDRESS;length{Reg.D0}:LONGINT):LONGINT; CODE -72;
  40.  
  41. PROCEDURE SendNet(net{Reg.A0},pathAndFilename{Reg.A1}:ADDRESS):LONGINT; CODE -78;
  42.  
  43. PROCEDURE ReceiveNet(net{Reg.A0},path{Reg.A1}:ADDRESS):LONGINT; CODE -84;
  44.  
  45. PROCEDURE Timeout(net{Reg.A0}:ADDRESS;seconds{Reg.D0}:LONGINT):LONGINT; CODE -90;
  46.  
  47. PROCEDURE ReadString(net{Reg.A0},buffer{Reg.A1}:ADDRESS;max{Reg.D0}:LONGINT):LONGINT; CODE -96;
  48.  
  49. PROCEDURE WriteString(net{Reg.A0},string{Reg.A1}:ADDRESS):LONGINT; CODE -102;
  50.  
  51. PROCEDURE GetNetport(net{Reg.A0}:ADDRESS):LONGINT; CODE -108;
  52.  
  53. PROCEDURE InitModem(net{Reg.A0},initstring{Reg.A1},buffer{Reg.A2}:ADDRESS):LONGINT; CODE -114;
  54.  
  55. PROCEDURE CallModemDT(net{Reg.A0},number{Reg.A1},buffer{Reg.A2}:ADDRESS):LONGINT; CODE -120;
  56.  
  57. PROCEDURE CallModemDP(net{Reg.A0},number{Reg.A1},buffer{Reg.A2}:ADDRESS):LONGINT; CODE -126;
  58.  
  59. PROCEDURE WaitModem(net{Reg.A0},buffer{Reg.A1}:ADDRESS):LONGINT; CODE -132;
  60.  
  61. PROCEDURE HangupModem(net{Reg.A0}:ADDRESS):LONGINT; CODE -138;
  62.  
  63. PROCEDURE StopWaiting(net{Reg.A0}:ADDRESS):LONGINT; CODE -144;
  64.  
  65. PROCEDURE FlushNet(net{Reg.A0}:ADDRESS):LONGINT; CODE -150;
  66.  
  67. PROCEDURE SetBaud(net{Reg.A0}:ADDRESS;baud{Reg.D0}:LONGINT):LONGINT; CODE -156;
  68.  
  69. PROCEDURE ConvertModemString(string{Reg.A0}:ADDRESS):LONGINT; CODE -162;
  70.  
  71. PROCEDURE GetIOmsg(net{Reg.A0}:ADDRESS):LONGINT; CODE -168;
  72.  
  73. PROCEDURE GetModemStatus(net{Reg.A0}:ADDRESS):LONGINT; CODE -174;
  74.  
  75. PROCEDURE GetCurrentDevice(net{Reg.A0}:ADDRESS):LONGINT; CODE -180;
  76.  
  77. PROCEDURE GetCurrentUnit(net{Reg.A0}:ADDRESS):LONGINT; CODE -186;
  78.  
  79. PROCEDURE GetBaudrate(net{Reg.A0}:ADDRESS):LONGINT; CODE -192;
  80.  
  81. PROCEDURE ParseConnect(buffer{Reg.A0}:ADDRESS):LONGINT; CODE -198;
  82.  
  83. PROCEDURE SetDefault(net{Reg.A0}:ADDRESS):LONGINT; CODE -204;
  84.  
  85. PROCEDURE ConvertToPC(text{Reg.A0}:ADDRESS):LONGINT; CODE -210;
  86.  
  87. PROCEDURE ConvertToAmiga(text{Reg.A0}:ADDRESS):LONGINT; CODE -216;
  88.  
  89. PROCEDURE FreeConvert(convertedtext{Reg.A0}:ADDRESS):LONGINT; CODE -222;
  90.  
  91. PROCEDURE ObtainNet(taskname{Reg.A0}:ADDRESS):LONGINT; CODE -228;
  92.  
  93. PROCEDURE RTNumberofNets():LONGINT; CODE -234;
  94.  
  95. PROCEDURE RTNetInfo(buffer{Reg.A0}:ADDRESS;ID{Reg.D0}:LONGINT):LONGINT; CODE -240;
  96.  
  97. PROCEDURE RTKillNet(ID{Reg.D0}:LONGINT):LONGINT; CODE -246;
  98.  
  99. PROCEDURE RTAbort(ID{Reg.D0}:LONGINT):LONGINT; CODE -252;
  100.  
  101. PROCEDURE RTFlush(ID{Reg.D0}:LONGINT):LONGINT; CODE -258;
  102.  
  103. PROCEDURE RTCheck():LONGINT; CODE -264;
  104.  
  105. PROCEDURE RTHighestID():LONGINT; CODE -270;
  106.  
  107. PROCEDURE WaitText(net{Reg.A0},waitstring{Reg.A1}:ADDRESS):LONGINT; CODE -276;
  108.  
  109. PROCEDURE ConverseText(net{Reg.A0},waitstring{Reg.A1},sendstring{Reg.A2}:ADDRESS):LONGINT; CODE -282;
  110.  
  111. PROCEDURE CaptureTextStart(net{Reg.A0},filename{Reg.A1}:ADDRESS;mode{Reg.D0}:LONGINT):LONGINT; CODE -288;
  112.  
  113. PROCEDURE CaptureTextEnd(net{Reg.A0}:ADDRESS):LONGINT; CODE -294;
  114.  
  115. PROCEDURE SetParity(net{Reg.A0}:ADDRESS;parity{Reg.D0}:LONGINT):LONGINT; CODE -300;
  116.  
  117. PROCEDURE SetHandshake(net{Reg.A0}:ADDRESS;handshake{Reg.D0}:LONGINT):LONGINT; CODE -306;
  118.  
  119. PROCEDURE SetStopbits(net{Reg.A0}:ADDRESS;stopbits{Reg.D0}:LONGINT):LONGINT; CODE -312;
  120.  
  121. PROCEDURE SetBitwidth(net{Reg.A0}:ADDRESS;bitwidth{Reg.D0}:LONGINT):LONGINT; CODE -318;
  122.  
  123. PROCEDURE GetParity(net{Reg.A0}:ADDRESS):LONGINT; CODE -324;
  124.  
  125. PROCEDURE GetHandshake(net{Reg.A0}:ADDRESS):LONGINT; CODE -330;
  126.  
  127. PROCEDURE GetStopbits(net{Reg.A0}:ADDRESS):LONGINT; CODE -336;
  128.  
  129. PROCEDURE GetBitwidth(net{Reg.A0}:ADDRESS):LONGINT; CODE -342;
  130.  
  131.  
  132. END dignetL.
  133.